home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / amos / amos_col.lha / AMOS-COL / Flag.amos / Flag.amosSourceCode < prev    next >
AMOS Source Code  |  1980-01-10  |  1KB  |  67 lines
  1. 'Programing by Magic_Sadist & Delta_Opium
  2. 'By Delta/Opium
  3. '
  4. '�ukasz ï¿½elezny
  5. 'ul. W�oska 4D/6 
  6. '42-612 Tarnowskie G�ry  
  7. 'Poland
  8. '
  9. Flash Off : Cls 0
  10. 'RYS$=Fsel$("","","Wybierz rysunek") 
  11. 'Load Iff RYS$,0 
  12. Unpack 10 To 0
  13. Palette $0,$FFF,$FFF,$F00
  14. Screen Open 1,320,200,4,Lowres
  15. Palette $0,$FFF,$FFF,$F00
  16. Hide 
  17. Flash Off 
  18. Get Palette 0
  19. Cls 0
  20. 'Double Buffer : Autoback 1
  21. Degree 
  22. 'Pokazuje falowany obrazek 
  23. '  Pozycja  - Pozycja od kturej zaczyna si� falowanie obrazka (0-360).   
  24. '  Ile  - welko�c falowania obrazka (1-???). 
  25. '  Speed - pr�dko�� falowania (1-???).   
  26. '  Element - wielko�� kopiowanych element�w (1-30).    
  27. 'np: 
  28. Dim _SIN#(360),_COS#(360)
  29. Global _SIN#(),_COS#()
  30. For G=0 To 360
  31.    _COS#(G)=Cos(G)
  32.    _SIN#(G)=Sin(G)
  33. Next 
  34. SX=1
  35. Repeat 
  36.    
  37.    _SINE_X[SX,10,10,3]
  38.    Add SX,15,1 To 360
  39.    
  40. Until Inkey$<>"" or Mouse Key
  41. Wait 5
  42. Procedure _SINE_X[POZYCJA,ILE,SPEED,ELEMENT]
  43.    
  44.    Screen 0
  45.    X=Screen Width
  46.    Y=70
  47.    SA=POZYCJA
  48.    X=70
  49.    For F=10 To X Step ELEMENT
  50.       Screen Copy 0,F,0,F+ELEMENT,Y To 1,F,_COS#(SA)*ILE
  51.       Add SA,SPEED,1 To 360
  52.    Next F
  53.    Screen Swap 
  54. End Proc
  55. Procedure _SINE_Y[POZYCJA,ILE,SPEED,ELEMENT]
  56.    
  57.    Screen 0
  58.    X=Screen Width
  59.    Y=Screen Height
  60.    SA=POZYCJA
  61.    
  62.    For F=0 To Y Step ELEMENT
  63.       Screen Copy 0,0,F,X,F+ELEMENT To 1,_SIN#(SA)*ILE,F
  64.       Add SA,SPEED,1 To 360
  65.    Next F
  66.    Screen Swap 
  67. End Proc